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Implementations of PASCAL in systems using 
character sets without control characters* 



In implementations based on character sets lacking the character 

eol (end of line), a text file x is considered as a sequence of 

lines, and each line being a sequence of characters (like a file 
of files ) . 

The procedures put(x) and get(x) operate within a component 
of the file x , i.e. within a line. Upon generation of a text, 
a line is terminated by calling the (new) procedure 

putln(x) 

In reading, calling get(x) when xt represents the last 
character of a line, causes the (new) predicate 



eol(x) 



( end-of-line) 



to oecome true. The value of xt resulting from this operation is 
not aefined.. Reading of the next line is initiated by calling the 
(neu ) procedure . 

getln(x) 

Noob the analogy of the following program schemas valid for 
implementations using the control character eol . and the new line 
cor.trol procedures respectively: 



writing a- text 



repeat P(xt); put(x) 
until p ; 

xT := eol; put(x) 

until q ■ 

reading a text x : 

while -neof (x) do 
begin 

while xt £ eol do 

begin Q(xt); get(x) 

end : 

R; get(x) -. 

end 



repeat 

repeat P(xt)j put(x) 

until p j 

putln(x) 
until q 



while -ieof (x) do 
begin 

while - ieol(x) do 

begin Q(xt)j get(x) 

end : 

R; getln(x) 
end 



*. for instance, CDC SCOPE 3.4 with 64-cha'racter sets 



- 2 - 



cr, 



the standard text files input and output , two new standard 
redures are introduced: 



readln = 
writeln = 



getln ( input) 
putln(output ) 



The fallowing two program schemas demonstrate their use. Again, 
tn •-. analogous schemas for implementations offering the control 
character eol are shown in correspondence. 



V/riting the text "output": 

repeat 

repeat P(ch); write(ch) 

until p ; 

write(eol) 
until q 

Reading the text "input": 

while — ieof(input) do 
begin read(ch); 

while ch £ eol do 

begin Q(ch); read(ch) 

end ; 

R ■ 
end 



repeat 

repeat P(ch); write(ch) 

until p ; 

writeln 
until q 



while -neof (input) do 
begin 

while -ieol(input) do 

begin read(ch); Q(ch) 

end : 

R; readln 
end 



The greatest imcompatibility between two corresponding schemas 
occurs in reading the file input . This unfortunate discrepancy is 
due to the circumstances, that read(ch) stands for the two 
statements 

ch :='inputt; get(input) 

thc-t ■ cy definition in implementations without control characters 
the condition eol(input) = true prohibits the application of 
cet(input) , and that therefore the function eol(input) must be 
evaluated before the first call of read(ch) . Note that in these 
i plementa-cions, eol does never occur as the value of input t j 
instead, if eol(x) = true , the value xt is some printable 
character, but it is not defined which one. Neither must the value 
sal occur as an argument to the standard procedure write . 



